home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / 7UP_PD / TABULAT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-17  |  2.6 KB  |  134 lines
  1. /* Tabs expandieren und komprimieren */
  2. /*****************************************************************************
  3. *
  4. *                                              7UP
  5. *                                      Modul: TABULAT.C
  6. *                                     (c) by TheoSoft '90
  7. *
  8. *****************************************************************************/
  9. #include <portab.h>
  10. #include <stdio.h>
  11. #include <stdlib.h>
  12. #include <aes.h>
  13. #include "windows.h"
  14. #include "forms.h"
  15.  
  16. #include "alert.h"
  17. #include "7up.h"
  18.  
  19. #define  BLANK  ' '
  20. #define  NEWLINE '\n'
  21. #define  TAB     '\t'
  22. #define  NUL     '\0'
  23.  
  24. extern OBJECT *winmenu,*tabmenu;
  25.  
  26. char *stpexpan(register char *ptarget, char *psource, register int incr, register int tarsize, register int *linelen)
  27. {
  28.      char c;
  29.      register int len;        /* Running total of characters put  */
  30.                                     /* into ptarget, also index of next */
  31.                                     /* char in ptarget.                      */
  32.      int numspaces;
  33.  
  34.      len = 0;
  35.      tarsize--;
  36.      while (((c = *psource) != NULL) && (len < tarsize))
  37.      {
  38.     switch (c)
  39.     {
  40.          case TAB:
  41.         if ((incr > 0) &&
  42.              ((numspaces = (incr - (len % incr))) != 0))
  43.         {
  44.              if ((len += numspaces) < tarsize)
  45.              {     /* There's enough room.                 */
  46.             while (numspaces--)
  47.                  *ptarget++ = BLANK;
  48.             break;
  49.              }
  50.              else     /* There isn't enough room, */
  51.             continue;    /* so quit.          */
  52.         }
  53.  
  54.          /* Else TAB expansion is not in effect:            */
  55.          /* just fall through and copy the TAB to ptarget.      */
  56.  
  57.          default:
  58.         *ptarget++ = c;
  59.         len++;
  60.         break;
  61.     }
  62.     psource++;
  63.      }
  64.      *ptarget = '\0';
  65.      *linelen=len;
  66.      return (c ? psource : NULL);
  67. }
  68.  
  69. char *stptabfy(char *psource, int incr)
  70. {
  71.      char c;
  72.      register int col = 0;  /* Column counter (modulo incr).        */
  73.      register int numblanks = 0; /* Number of blanks we've saved up.    */
  74.  
  75.      char    *pfrom = psource;
  76.      register char *pto    = psource;
  77.  
  78.      do
  79.      {
  80.     switch (c = *pfrom++)
  81.     {
  82.          case BLANK:
  83.         numblanks++;
  84.         col++;
  85.         if ((incr <= 0) ||
  86.              (col % incr == 0))
  87.         {
  88.              *pto++     = (char) ((numblanks > 1) ? TAB : BLANK);
  89.              numblanks = 0;
  90.         }
  91.         break;
  92.  
  93.          case TAB:
  94.         col      =
  95.         numblanks = 0;     /* Discard the saved blanks    */
  96.         *pto++      = TAB;
  97.         break;
  98.  
  99.          default:
  100.         col++;
  101.         for (; numblanks; numblanks--)
  102.              *pto++ = BLANK;        /* Spill any saved blanks */
  103.         *pto++ = c;
  104.         break;
  105.     }
  106.      } while (c);
  107.  
  108.      return (psource);
  109. }
  110.  
  111. int hndl_tab(OBJECT *tree,WINDOW *wp)
  112. {
  113.     char str[3];
  114.     int tab=0;
  115.     if(wp)
  116.     {
  117.         sprintf(str,"%d",wp->tab);
  118.         form_write(tree,TABULAT,str,FALSE);
  119.         if(form_exhndl(tree,TABULAT,FALSE)==TABOK)
  120.         {
  121.             form_read(tree,TABULAT,str);
  122.             if(*str)
  123.                 tab=atoi(str);
  124.             else
  125.                 form_alert(1,Atabulat[0]);
  126.             if(tab<1)
  127.                 tab=1;
  128.         }
  129.         else
  130.             tab=wp->tab;
  131.     }
  132.     return(tab);
  133. }
  134.